qbasic program to find the sum of digits in a number